En la siguiente ventana vamos a poder apreciar una comparativa entre el número de estudiantes de tres facultades de la UCM.
El número de estudiantes en BIOLÓGICAS y en FÍSICAS se ha mantenido por encima de ODONTOLOGÍA a lo largo de los años.
El número de estudiantes en BIOLÓGICAS ha disminuido a partir de 2012 mientras que en FÍSICAS ha aumentado ligeramente a partir de 2010. En ODONTOLOGÍA se ha mantenido constante el número de estudiantes.
---
title: "Alumnado UCM"
author: "Diego López,modificado de S. Estévez, Y.García"
date: "`r Sys.Date()`"
output:
flexdashboard::flex_dashboard:
theme: yeti
source_code: embed
logo: logos/ucm_favicon.png
favicon: logos/ucm_favicon.png
social: [ "twitter", "facebook", "menu" ]
navbar:
- { title: "Datasets", href: "https://www.ucm.es/la-universidad-en-cifras", align: left}
- { title: "Icons", href: "https://fontawesome.com/icons/categories/", align: left }
---
```{r setup, include=FALSE}
library(flexdashboard)
library(readr)
library(dplyr)
library(ggplot2)
library(DT)
library(plotly)
df <- read_delim("datos_tratados.csv", delim = ";")
df$CURSO <- factor(df$CURSO)
df$CENTRO <- factor(df$CENTRO)
# Agrupamos los datos por curso
grouped_data <- df %>%
group_by(CURSO) %>%
summarise(across(where(is.numeric), sum))
# Agrupamoslos datos por curso
grouped_data <- df %>%
group_by(CURSO) %>%
summarise(across(where(is.numeric), sum))
df_4_M <- select(grouped_data,CURSO,TOTAL_MUJERES)
df_4_H <- select(grouped_data,CURSO,TOTAL_HOMBRES)
colnames(df_4_M)[2] <-"TOTAL"
colnames(df_4_H)[2] <-"TOTAL"
df_4_M$GÉNERO <- rep('Mujer', times = nrow(df_4_M))
df_4_H$GÉNERO <- rep('Hombre', times = nrow(df_4_H))
df_5 <- bind_rows(df_4_M,df_4_H)
```
# Página 1 {data-orientation=rows, data-icon=fa-globe}
## Columna 1 {data-width=400}
### Tabla de datos
```{r}
# Crear una tabla interactiva con DT
tabla_interactiva <- datatable(df, options = list( pageLength = 30))
tabla_interactiva
```
## columna2
### Componente estático con ggplot
```{R}
df_3 <- filter(df, CENTRO == "BIOLOGICAS" | CENTRO == "FISICAS" | CENTRO == "ODONTOLOGIA")
df_3$CURSO <- factor(df_3$CURSO)
df_3$CENTRO <- factor(df_3$CENTRO)
df_4_M <- select(df_3,CURSO,CENTRO,TOTAL_MUJERES)
df_4_H <- select(df_3,CURSO,CENTRO,TOTAL_HOMBRES)
colnames(df_4_M)[3] <-"TOTAL"
colnames(df_4_H)[3] <-"TOTAL"
df_4_M$GÉNERO <- rep('Mujer', times = nrow(df_4_M))
df_4_H$GÉNERO <- rep('Hombre', times = nrow(df_4_H))
# Ahora uno las tablas de Hombre y Mujer
df_5 <- bind_rows(df_4_M,df_4_H)
g1 <-ggplot(df_5) +
geom_boxplot(aes(y=TOTAL, x = CENTRO, fill = GÉNERO) ) +
labs(title = "Distribución por mujeres y hombres que estudian
en Biológicas, Físicas y Odontología",
subtitle = "Gráficos de cajas, (geom_boxplot).",
x = " ",
y = "Número de estudiantes \n ",
caption = "Fuente: El Centro de Inteligencia Institucional, UCM."
) +
theme(axis.text.x = element_text(size = 8),
#arriba(top), izquierda (left), derecha (right)
legend.position = "top",
)
g1
```
### Componente estático con ggplot
```{r}
ggplot(df_3) +
geom_boxplot(aes(x= CENTRO, y = TOTAL, fill = CENTRO)) +
labs(title = "Distribución de las matrículas en la UCM en las
facultades de Biológicas, Físicas y Odontología",
subtitle = "Gráficos de cajas, (geom_boxplot)",
x = " ",
y = "Número de matriculas por año \n"
)
```
# Página 2 {data-icon=fa-database}
## Columna 1 {.tabset}
### Cuadro de texto con comentarios {data-height=300}
En la siguiente ventana vamos a poder apreciar una comparativa entre el número de estudiantes de tres facultades de la UCM.
El número de estudiantes en BIOLÓGICAS y en FÍSICAS se ha mantenido por encima de ODONTOLOGÍA a lo largo de los años.
El número de estudiantes en BIOLÓGICAS ha disminuido a partir de 2012 mientras que en FÍSICAS ha aumentado ligeramente a partir de 2010. En ODONTOLOGÍA se ha mantenido constante el número de estudiantes.
### Componente con ggplot
```{r fig.width=10, fig.height=5}
ggplot(df_5) +
geom_violin(aes(y=TOTAL, x = CENTRO, fill = CURSO)) +
labs(title = "Distribución de estudientes de 3 facultades de la UCM a lo largo del tiempo",
subtitle = "Gráficos de cajas, (geom_boxplot).",
x = " ",
y = "Número de estudiantes \n ",
caption = "Fuente: El Centro de Inteligencia Institucional, UCM."
) +
theme(axis.text.x = element_text(size = 10),
#arriba(top), izquierda (left), derecha (right)
legend.position = "top",
)
```